﻿
Public Class Form1

    Private mCSCtl As CtlTplCS.CSUCTemplate
    Private mVBCtl As CtlTplVB.VBUCTemplate

    '' Add a splitter
    Private mSplit As New SplitContainer

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        '' Create new instances of our controls
        mCSCtl = New CtlTplCS.CSUCTemplate
        mVBCtl = New CtlTplVB.VBUCTemplate

        '' Add the splitter to the form
        Me.Controls.Add(mSplit)
        mSplit.Dock = DockStyle.Fill

        '' add controls to splitter
        mSplit.Panel1.Controls.Add(mCSCtl)
        mSplit.Panel2.Controls.Add(mVBCtl)

        '' add the example image to the controls
        mCSCtl.Image = My.Resources.Resource1.Example
        mVBCtl.Image = My.Resources.Resource1.Example

        mCSCtl.Dock = DockStyle.Fill
        mVBCtl.Dock = DockStyle.Fill

        mSplit.SplitterDistance = Width / 2 - 10


    End Sub

End Class
